#! /usr/bin/env Rscript
setwd("~/Documents/facultad/tesis/wikipedia/words/")
extension = ".csv"
#files = c('histDe1A10','histDe11A100','histDe101A1000', 'histDe1001A2000', 'histDe2001ATodo','histDe2001A10000','histDe10001ATodo')
files = c('hist')
png(file="hist.png", width=450, height=400)
h = scan("hist.csv")
hist(log(h), breaks=50, ylim=c(0,20000), xlab=paste(""), ylab=paste("Frecuencia"))
dev.off()

